home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 26
/
AMIGAplus Sonderheft 26 (2000)(Falke)(DE)(Track 1 of 2)[!].iso
/
Tools
/
SFX-Player
/
Mpeg
/
MrMPEG
/
GetInfo.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-03-29
|
1KB
|
31 lines
/* GetInfo.rexx */
options results; address MrMPEG
MUIA_List_Active = 0x8042391c; MUIA_List_Entries = 0x80421654
MUIA_Slider_Level = 0x8042ae3a; MUIA_Slider_Max = 0x8042d78a
list ID SLIST ATTRS MUIA_List_Active; temp_active = result
list ID SLIST POS temp_active
parse var result filename','temp_song_time','detail
if filename ~= 'RESULT' then do /* Check if there's any selected song */
getvar current_song
if filename ~= result then setvar current_time '00:00'
list ID SLIST ATTRS MUIA_List_Entries; temp_max = result
setvar active temp_active
setvar max temp_max
setvar song_time temp_song_time
getvar total_time; temp_total_time = result
getvar current_time; temp_current_time = result
string ID FNAME CONTENT filename
text ID LCD LABEL strip(detail)
text ID ACTIV LABEL "\033b\033r"right(temp_active + 1, 3)
text ID MAX LABEL "\033b\033r"right(temp_max, 3)
text ID CURNT LABEL "\033b\033r"temp_song_time
text ID TOTAL LABEL "\033b\033r"temp_total_time
slider ID PROG ATTRS,
MUIA_Slider_Max left(temp_song_time, 2) * 60 + right(temp_song_time, 2),
MUIA_Slider_Level left(temp_current_time, 2) * 60 + right(temp_current_time, 2)
end
return